f 



TSCASH — 


TSX-Plus Data 


C, 


aching HACRO V05 


Table of contents 






2- i 


L CSHIO 


— 


Check if data i 


3- ] 


L CSHRD 


— 


Read request 


4_ ] 


L READ ID 


— 


Start read I/O 


5- 3 


L REDCPL 


-- 


Read I/O compie 


6- J 


L CSHWRT 


— 


Write request 


7- ] 


[ WRTCPL 


— 


Write operation 


8- J 


L CSHUP 


— 


Update cache wi 


9- :l 


I RDMOVE 


— 


Move data from 


10- 1 


I WTMOVE 


— 


Move data from 


11- 3 


I CSHBLD 


— 


Build empty cac 


12- 3 


I CSHCLN 


— 


Remove all entr 


13- 3 


I CSHLOC 


— 


Determine if en 


14- 3 


L CSHUSE 


— 


Make cache entr 


15- 3 


I CSHADD 


— 


Add cache table 


16- 3 


I CSHREM 


— 


Remove cache bl 


17- 3 


I CSHGET 


— 


Try to get a fr 


IS- 3 


I CSHFRE 


— 


Return a cache 


19- ; 


L CSHTST 


— 


Determine if de 


20- : 


L CCBGET 


— 


Get a free each 


21- : 


I CCBFRE 


— 


Free a cache co 


22- 


t CSHFIW 


— 


Completion of a 


23- : 


L CSHGTO 


— 


Get a free I/O 


24- 


I CSHCN1 


— 


Keep track of c 


25- 


I CSHZRO 


— 


Reset all stati 


26- 


L CSHSCH 


— 


See if system j 


27- 


L CSHINI 


— 


Data caching sy 



Friday 18-Dec-S7 12:00 



s in cache 

operation 
tion routine 

completion routine 
th fresh data 
cache to user's buffer 
user's buffer to cache 
he descriptors for new entries 
ies for a specified device 
try exists in cache table 
y be most-recently-used 

entry to appropriate lists 
Qck entry from all lists 
ee cache block entry 
block entry to the free list 
vice is mounted 
e control block 
ntroi block 

mapped I/O operation 
queue element 
ache usage statistics 
Stic counters to zero 
ob scheduler should be called 
stem initialization 



TSCASH — TSX-Plus Data Caching MACRO K'0'5. 0^ ;■ -iday lb~0ec-S7 12:00 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

le 

19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 

42 

43 

44 

45 

46 
47 

48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



TSX-Plus Data Caching Facility 



000000 



. TITLE TSCASH 

. ENABL LC 

. DSABL GBL 

. CSECT TSCASH 



TSCASH is the TSX-Plus module that contains the routines 
used to perform data caching. 

Copyright (c) 1984,1985. 
B&H Computer Systems, Inc. 
Nashville, Tennessee USA 
All rights reserved. 

Macro calls 

. MCALL . ADDR 
Global definitions 

. GLOBL TSCASH 

Global references 

. GLOBL CC*CBP, Q. FUNC, Q. COMP, Q. CSW, CC*WCT, OVRHC 

. GLOBL CC$WFL, CD*DVU, CC*DVU, CC*UBO, CC*UBP, CC*BLK 

. GLOBL Q. UNIT, CA*DVU, C. CSW, CA*WCT, CA*UFL, CA*UBL 

. GLOBL CS«EOF, CA$HFL, Q. WCNT, ENSYS, CSHDVN, KPAR5 

. GLOBL KPAR6, Q. DEVX, CA$BLK, CA*HBL, CSHMRU, CA*HSH 

. GLOBL VPAR6, VPAR5, CC*OQE, SYQIO, Q. JOB, CD«*SZ 

. GLOBL CSHLRU, CSHDEV, CSHBFP, CS*ERR, CCBHD, S*QCCB 

. GLOBL QNSPNX, CC*LNK, 0. BLKN, 0. BUFF, Q. PAR 

. GLOBL UREGO, lOCMPL, lOQSIZ, Q. CHAN, FP*MOV, USWPCH 

. GLOBL INTPRI, PSW, CSHFHD, VCSHNB, JOBCCB, NPCCB 

. GLOBL Q. FLAG. QF^CIO, QF*SCR, GETQ, DOSCHD, SCHED 

. GLOBL CASTBR, CASCBR, CASTBW, CASCUP, CORUSR 

. GLOBL CASTRO, CASTWD, DVFLAG, DX*NCA, «NOABT, LSW9 

Macro to map to a data caching table 

. MACRO MAPTO TABLE 
MOV e#TABLE, €!#KPAR5 
. ENDM MAPTO 

Macro to disable device interrupts 

. MACRO DISABL 
BIS #340, ©#PSW 
. ENDM DISABL 



Macro to enable interrupts. 

. MACRO ENABL 

BIC e#INTPRI,@#PSW 

. ENDM ENABL 

Macro to call a system overlay 
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58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

67 

70 

71 000000 012700 

72 

73 

74 

75 000002 

76 000004 

77 000006 

78 000010 
79 
SO 
81 

82 000012 

83 000014 

84 000016 



003622 
00002O 
00 1 530 
003346 



000000 
000000 
000000 



. MACRO OCALL ENTADD 

•IF B. ENTADD 

.ERROR J OCALL without entry address 

. ENDC 

CALL e#OVRHC 

. WORD ENTADD 

. ENDM OCALL 



Module header. Must be first data in segment. 
Overlay segment ID word 
TSCASH: . RAD50 /CSH/ 

Table of offsets to entry points in this module 



CSHINI-TSCASH 
CSHIO-TSCASH 
CSHCLN-TSCASH 
CSHFIN-TSCASH 



* Table of o 




. WORD 




. WORD 




. WORD 




. WORD 


i Data 


areas 


CURCCB: 


. WORD 


lOQIN: 


. WORD 


lOQOUT: 


. WORD 









; Current cache control block 

; Current original I/O queue element 

> Current secondary I/O queue element 



i 
i 

4 

i 
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OOOOOOG OOOOOOG 
OOOOOOG 



1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 

14 000020 010346 

15 000022 010546 

16 000024 013746 OOOOOOG 
17 
18 
19 
20 

21 000030 132761 

22 000036 001053 

23 000040 105761 

24 000044 001450 

25 000046 126127 OOOOOOG OOOOOOG 

26 000054 001444 
27 

28 
29 

30 000056 004767 002636 

31 000062 103441 
32 

33 
34 

35 000064 005737 OOOOOOG 

36 000070 001436 
37 

39 
39 
40 

41 000072 105761 OOOOOOG 

42 000076 001413 
43 

44 
45 
46 

47 000100 116100 OOOOOOG 

48 000104 042700 177770 

49 000110 000300 

50 000112 116103 OOOOOOG 

51 000116 050003 

52 000120. 004767 001404 

53 000124 000420 
54 

55 
56 
57 



. SBTTL CSHIO — Check if data is in cache 



CSHIO is called before each I/O operation is initiated to determine 
if the data being read is in the cache or^ in the case of a writer 
whether the data cache needs to be updated. 

Inputs: 
Rl = Address of I/O queue element. 

Outputs: 
C"-flag cleared ==> Queue request normally. 
C~flag set ==> Don't queue I/O request. We will do completion. 



CSHIO: MOV R3, -(SP) 
MOV R5, -<SP) 
MOV @#KPAR5, -<SP) 



j Save kernel PAR 5 mapping 



Ignore this I/O operation if it is being performed by the system 

or if this is a secondary I/O operation started by the caching system. 



BITB 

13 NE 

TSTB 

BEQ 

CMPB 

BEQ 



#QF$CIO. (3. FLAG<R1 ) ;Is this a secondary op started by us? 

9* ; Br if yes 

Q. JOB(Ri.) ; Is this a system I/O operation? 

*?* ; Don't do caching for system I/O operations 

Q. CHAN<R1),#USWPCH ils this user channel for swap file? 

9* ; Br if yes — Don't cache I/O to swap file 



Determine if the device being accessed is mounted by anyone 



CALL 
BCS 



CSHTST 
9* 



i Is this device mounted? 
; Br if not 



Determine if caching has been disabled 



TST 
BEQ 



@#VCSHNB 
9* 



; Are there any active cache buffers? 
i Br if not 



This device is mounted and hence should be cached. 
Determine if this is a . SPFUN operation. 



TSTB Q. FUNC(Rl) 
BEQ 3* 



i Is this a .SPFUN operation? 
j Br if not 



. SPFUN being done to cached device. 

Clean out all cache entries for this device. 



MOVB 


Q. UNIT(R1),R0 


BIC 


#"^C7, RO 


SWAB 


RO 


MOVB 


Q. DEVX<R1>,R3 


BIS 


RO, R3 


CALL 


CSHCLN 


BR 


9* 



/Get device unit number 

i Clear all but unit number 

; Put in high-order byte 

i Get device index number 

iCombine unit # with device # 

iClean out the cache 

i Ignore this I/O operation 



This is not a . SPFUN. 

Ignore the operation of the word count is zero. 



TSCASH 
CSHIO 



TSX-Plus Data 
Check if data 
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58 000126 

59 000132 
60 

61 

62 

63 000134 

64 

65 

66 

67 000140 

68 000144 
69 

70 
71 

72 000146 

73 000152 

74 000154 
75 

76 
77 

78 000156 

79 000162 
SO 000164 
81 

82 

83 

84 000166 

85 

86 

87 

88 000170 

89 000174 

90 000176 

91 000200 



005761 
001415 



OOOOOOG 



004767 002656 



00576.1. 
002404 



004767 
000261 
000405 



004767 
000261 
000401 



000241 



012637 
012605 
012603 
000207 



0000000 



000030 



000306 



OOOOOOG 



3$; TBI 0. WCNT(Rl) 
BEQ 9* 



i Is word count zero? 

; Br if yes — Don't do caching 



Get a cache control block. 

CALL CCBGET i Get a cache control block 

Determine if it is a .READ or .WRITE operation 



TST Q. WCNT(Rl) 
BLT 1* 



; Read/Write 

; Br if write operation 



CALL 

SEC 

BR 



; See if we can find data in cache 
;Signal that caching is being done 



; Start the write operation 

i Signal that caching is being done 



This is a read request 

CSHRD 

10* 

This is a write reque&t 

1*: CALL CSHWRT 
SEC 
BR 10* 

We do not want to do caching for this operation 

9*: CLC > Signal normal request queueing 

Finished 

10*: MOV <SP)+, @#KPAR5 ; Restore kernel PAR 5 mapping 

MOV <SP)+, R5 

MOV <SP)+, R3 
RETURN 



TSCASH — TSX-PluB Data 


Caching 


CSHRD — Read 


request 




1 
2 






3 






4 






5 






6 






7 






8 






9 000202 


010146 




10 000204 


010346 




11 






12 






13 






14 000206 


012700 


000001 


15 000212 


004167 


003262 


16 000216 


OOOOOOt) 




17 000220 


016500 


0000000 


18 000224 


062700 


000377 


19 000230 


000300 




20 000232 


042700 


177400 


21 000236 


004167 


003236 


22 000242 


ooooooc 




23 






24 






25 






26 000244 


004767 


001354 


27 000250 


103442 




28 






29 






30 






31 






32 000252 


016503 


OOOOOOG 


33 000256 


020327 


000400 


34 000262 


101402 




35 000264 


012703 


000400 


36 000270 






37 000276 


020311 




38 000300 


101026 




39 






40 






41 






42 000302 


004767 


000442 


43 






44 






45 






46 






47 000306 


004767 


001460 


48 






49 






50 






51 000312 


012700 


000001 


52 000316 


004167 


003156 


53 000322 


OOOOOOG 




54 






55 






56 






57 
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. SBTTL CSHRD — Read request 



A read request is being performed. 

See if we can get all or some of the requested data from the cache. 



Inputs: 
R5 - Pointer to cache control block for this operation. 



CSHRD: MOV 
MOV 



Rli -<SP) 
R3, -(SP) 



Count total number of blocks read from mounted devices 

Count 1 more read operation 
Update statistics counter 
Total number of read operations 
Get total word count 
Round up to block size 
Convert to # blocks 
Clear all but low byte 
Update statistics counter 
Total number of blocks read 

Begin loop to determine which blocks are in the cache. 



MOV 


#1.R0 


JSR 


Rl^CSHCNT 


. WORD 


CASTRO 


MOV 


CC*WCT<R5),R0 


ADD 


#255. , RO 


SWAB 


RO 


BIC 


#•■•0377, RO 


JSR 


R 1 . CSHCNT 


. WORD 


CASTBR 



1*: 



CALL 
BCS 



CSHLOC 
2* 



;Determine if next block is in the cache 
; Br if not 



3«: 



MOV 


CC*WCT(R5), 


R3 


CMP 


R3, #256. 




BLOS 


3* 




MOV 


#256. , R3 




MAP TO 


CA*WCT 




CMP 


R3, (Rl) 




BHI 


2$ 





There is an entry for this block in the cache. 

See if we have at least the requested number of words. 

; Get the remaining word count 

i Is there more than a block left to read? 

; Br if not 

; Say we are reading a block this time 

i Access cache table word count entry 

i Are the required number of words in cache? 

; Br if not 

Transfer data from cache buffer to user's buffer 

CALL RDMOVE ; Move data from cache to user's buffer 

Move this cache block to the head of the LRU chain 
<Th3t is, make it the most recently used) 

CALL CSHUSE ;Make this block be the most recently used 

Count another block that was read from the cache 

; Add 1 to counter 

iUpdate statistics counter 

; Number of blocks read from cache 

See if the job scheduler needs to be called to give someone else a 
chance to run 



MOV 


#1,R0 


JSR 


Rl, CSHCNT 


. WORD 


CASCBR 



TSCASH 
CSHRD 
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58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 



000324 004767 003256 



000330 005265 0000000 

000334 062765 000010 OOOOOOG 

000342 160365 0000000 

000346 001336 



000350 004767 002772 
000354 000402 



CALL CSHSCH ; See if job scheduler needs to be called 

Advance block number, buffer address, and reduce remaining word count. 

INC CC*BLK(R5) > Advance block number 

ADD #8. , CC*UBP<R5> ; Advance buffer address 

SUB R3, CC$WCT<R5) ; Reduce remaining word count 

BNE 1* ; Loop if more blocks need to be read 

We were able to satisfy entire read request from the cache. 



CALL 
BR 



CSHFIN 
9* 



; Finished I/O operation 



Not all of the data is in the cache. 
Read remainder in from I/O device. 



000356 004767 000006 



000362 012603 
000364 012601 
000366 000207 



2$: CALL 

i 

i Finished 



9$: 



MOV 
MOV 
RETURN 



READIO 



<SP)+, R3 
(SP)+, Rl 



; Start read from I/O device 



€ 
€ 



c 
c 
i 
i 
< 
c 
i 
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1 . SBTTL READIO — Start read I/O operation 



3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 



27 
28 
29 
30 
31 
32 
33 
34 
35 
36 



000370 010146 



000372 004767 000756 



000376 004767 002766 



000402 

000410 010061 0000000 



000414 004737 0000000 



READIO is called to start an I/O operation to read data that is not 
available in the cache. 

Inputs: 
R5 = Pointer to cache control block. 

Results: 
Data is read into user's buffer and then is moved into cache. 



READIO: MOV 



R 1 , - ( SP -> 



000420 012601 
000422 000207 



Build cache block descriptors for all the blocks that are going 

to be read. The descriptors indicate that the cache buffers are empty. 

CALL CSHBLD i Build empty cache block descriptors 

Get and initialize a free I/O queue element 

CALL CSHGTQ ; Get a free I/O queue element 

Set address of completion routine 

. ADDR #REDCPL> RO ; Get address of read completion routine (PIC) 
MOV RO, Q. C0MP<R1 ) ; Set address of read completion routine 

Initiate the read operation 

CALL @#SYQI0 J Queue the I/O operation 

Finished 

When the read finishes the REDCPL routine will be called. 

MOV (SP>+. Rl 
RETURN 



i 
i 
i 
i 



TSCASH 
REDCPL 
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f 

€ 



1 

2 
3 



5 

h 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

23 
24 
25 
26 
27 
28 
29 
30 
31 



. SBTTL REDCPL — Read 1/0 completion routine 

REDCPL is called as a completion routine when a read operation completes. 

Inputs: 
Rl = Address of cache control block. 



000424 010546 
000426 010105 



REDCPL: MOV 
MOV 



R5, -<SP> 
R1,R5 



i Carry control block address in R5 



000430 016500 OOOOOOG 

000434 016000 OOOOOOG 

000440 032760 OOOOOOC OOOOOOG 

000446 001002 



000450 004767 000164 



000454 004767 002666 



000460 005067 177332 
000464 012605 
000466 000207 



If end of file or hardware error was reported by handler* 
terminate the operation. 

MOV CC*0QE(R5). RO ; Get address of original I/O queue element 
MOV Q. CSW<RO),RO i Get address of channel block 
BIT #<CS*EOF!CS*ERR>, C. CSW<RO) i End of file or error? 
BNE 8* ; Br if yes 

> 

; Move each block of data that was read from user's buffer to cache buffer 



1*: CALL CSHUP 

> Finished with operation 

8*: CALL CSHFIN 

Finished 

CLR lOQOUT 

MOV <SP)+, R5 
RETURN 



Move data from user's buffer to cache 



iFinished with entire operation 



j Say we have finished with secondary queue 



TSCASH ■ — TSX-Plus Data Caching 
CSHWRT — Write request 



1 

2 

3 

4 

5 

6 

7 

8 

9 
10 000470 
11 
12 
13 

14 000472 

15 000476 

16 000502 

17 000510 
18 

19 
20 

21 000514 

22 000522 
23 

24 
25 
26 
27 
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SBTTL CSHWRT — Write request 



010146 



004767 002672 
005461 OOOOOOG 

010061 OOOOOOG 



112765 000200 OOOOOOG 
004737 OOOOOOG 



Process a write request to a cached device. 

This involves moving the data being written from the user's buffer 

into the cache buffers. 

Inputs: 
R5 == Pointer to cache control block. 

CSHWRT: MOV R1,-<SP) 

Get and setup a free 1/0 queue element 



000526 
000532 

28 000536 

29 000540 

30 000544 

31 000550 

32 000552 

33 000556 

34 000562 
35 

36 

37 

30 

39 

40 

41 

42 

43 

44 

45 000570 

46 

47 

48 

49 000574 

50 000600 
51 

52 

53 

54 

55 000602 

56 

57 



012700 

004167 

OOOOOOG 

016500 

062700 

000300 

042700 

004167 

OOOOOOG 



000001 
002742 

OOOOOOG 
000377 

177400 
002716 



000564 004767 000564 



004767 000044 



106365 OOOOOOG 
103402 



004767 002540 



CALL CSHGTQ 

MEG Q. WCNT<R1) 

. ADDR #WRTCPL. RO 

MOV RO, Q. COMP(Rl) 

Start the I/O operation 



Get a free I/O queue element 
Negative u>ord count ~=> write operation 
Get address of I/O completion routine 
Set address of I/O completion routine 



MOVE #200, CC*WFL<R5) J Set flag saying I/O in progress 
CALL @#SYQIO i Initiate the I/O operation 

Count the total number of blocks that are being written 

Count 1 more write operation 
Update statistics counter 
Count 1 more write operation 
Get total word count 
Round up to block size 
Convert to # blocks 
Clear all but low byte 
Update statistics counter 
Total number of blocks written 

Now> while the device 1/0 transfer is taking place* move the data 
being written from the user's buffer into the cache buffers. 

Build empty cache table entries for all blocks being written. 

CALL CSHBLD ; Build empty cache table descriptors 

Move the data from the user's buffer into the cache 

CALL CSHUP i Move data into cache 

See if 1/0 write operation finished before our data move 



MOV 


#1,R0 


JSR 


R1,CSHCNT 


. WORD 


CASTWO 


MOV 


CC*WCT<R5),R0 


ADD 


#255. , RO 


SWAB 


RO 


BIC 


#-X377, RO 


JSR 


Rl, CSHCNT 


. WORD 


CASTBW 



ASLB CC*WFL(R5) 
BCS 9* 



i Has the I/O operation already finished? 
; Br if not — Wait for it to finish 



I/O operation has already finished. That means the overall operation 
is now finished. 



CALL 
Finished 



CSHFIN 



; Say operation is complete 
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58 ■> 

59 000606 012601 9*: MOV (SP)+, Rl 

60 000610 000207 RETURN 



TSCASH - 
WRTCPL - 

1 

2 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 
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— Write operation completion routine 



000612 010546 
000614 010105 



000616 106365 0000000 
000622 103402 



000624 004767 002516 



000630 005067 177162 
000634 012605 
000636 000207 



. SBTTL WRTCPL — Write operation completion routine 
Completion routine called when the write I/O operation is finished. 



Inputs: 
Rl = Pointer to cache control block. 



WRTCPL: MOV 
MOV 



R5, -<SP) 
Rl, R5 



; Carry control block pointer in R5 
See if data transfer to cache has already finished 



ASLB CC«WFL<R5) 
BCS 9* 



J Has data transfer to cache already finished? 
i Br if not 



> Data transfer to cache beat us. 

; The overall operation is now complete. 



CALL 
Finished 



CSHFIN 



9«: CLR lOOOUT 

MOV <SP)+, R5 
RETURN 



Finished operation 



i Say finished with seconary I/O queue element 
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1 

2 

3 

4 

5 

h 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IB 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 



000640 010146 
000642 010246 



000644 016502 OOOOOOG 

000650 020227 000400 

000654 101402 

000656 012702 000400 



000662 004767 000736 
000666 103415 



000670 004767 000256 



000674 

000702 010211 



000704 012700 000001 
000710 004167 002564 
000714 OOOOOOG 



000716 004767 002664 



QQOli 



005265 OOOOOOG 



. SBTTL CSHUP — Update cache u>ith fresh data 
CSHUP is called to move data from the user's buffer into the cache. 



I 

c 



Inputs: 
R5 = Pointer to cache control block. 



CSHUP: 



MOV 

MOV 



R 1 , - ( SP > 
R2, -<BP) 



Determine how many words are being moved this time 

5*: MOV CC«WCT(R5)>R2 ; Get remaining word count 

; More than a block left? 
i Br if not 
; Move a block this time 

See if there is a cache table entry for the next block 



MOV 


CC*WCT(R5), 


R 


CMP 


R2, #256. 




BLOS 


3* 




MOV 


#256. , R2 





3*: 



CALL 
BCS 



CSHLOC 
1* 



i Is there a cache entry for the block? 

j Br if not — Don't move the data into cache 



Move a block of data from user's buffer to cache buffer 

CALL WTMOVE ; Move data from user's buffer to cache buffer 

Set word count for block in cache control table 



MAP TO 
MOV 



CA*WCT 
R2, (Rl) 



i Map to word count table 

iSet word count for this block 



MOV 


#1,R0 


JSR 


Rl, CSHCNT 


. WORD 


CASCUP 



000726 062765 000010 OOOOOOG 
000734 160265 OOOOOOG 
000740 001341 



000742 012602 
000744 012601 
000746 000207 



Count number of blocks of data that are moved into cache 

; One more block moved into cache 

J Update statistics counter 

; Number of blocks moved into cache 

See if the job scheduler needs to be called to give someone else a 
chance to run 

CALL CSHSCH > See if job scheduler needs to be called 

Advance block number, buffer address, and decrement remaining word count. 

1*: INC CC«BLK<R5) j Increment block number 

i Advance buffer address 
i Reduce remaining word count 
> Loop if more left to move 



INC 


CC«BLK<R5) 


ADD 


#8. , CC$UBP<R5) 


SUB 


R2, CC$WCT<R5) 


BNE 


5* 


Finished 




MOV 


<SP)+, R2 


MOV 


<SP)+,R1 


RETURN 
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1 

S 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 



23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 



000750 
000752 
000754 
000756 



000760 
000766 
000772 



000774 
001002 
001010 
001014 
001020 



001024 
001030 
001034 
001036 



001042 
001044 
001050 
001052 
001054 
001056 
001060 
001062 
001064 
001066 
001070 
001072 
001074 
001076 
001100 
001102 
001104 
001106 



. SBTTL RDMOVE — Move data from cache to user's buffer 

RDMOVE is called to move up to a block of data from a cache buffer 
to the user's buffer. 

Inputs: 
R5 = Pointer to cache control block. 



010246 
010446 
010546 
010502 



RDMOVE: MOV 
MOV 
MOV 
MOV 



R2, -(SP) 
R4i -<SP) 
R5, -<SP) 
R5, R2 



; Carry control block pointer in R2 



Enter system state so uje can use PAR5 and PAR6 to map to the cache 
and u&er buffers. 



004737 OOOOOOG 
0000000 



. ADDR #9*, RO 
CALL @#ENSYS 
. WORD FP*MOV 



; Go to 9* on exit from system state 

/Enter system state 

> Set fork priority for ENSYS 



1 6237 
016237 
012704 
066204 
012705 



016200 
020027 
101402 
012700 



010002 
072227 
001421 
012524 
012524 
012524 
012524 
012524 
012524 
012524 
012524 
012524 
012524 
012524 
012524 
012524 
012524 
012524 



We are now running in system state 
Kernel PARS and PAR6 are free. 
Setup buffer pointers. 



on the interrupt stack. 



0000000 OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 
000400 



MOV CC*UBP<R2),e#KPAR5 

MOV CC*CBP(R2) 

MOV #VPAR5, R4 

ADD CC$UB0<R2) 

MOV #VPAR6, R5 



Set PAR base for user's buffer 
e#KPAR6 i Set PAR base for cache buffer 

i Get virtual address base for user's buffer 
;Add offset within 64-byte block region 
iGet virtual address base for cache buffer 



R4 



Get number of tuords to move 



000400 



MOV 
CMP 
BLOS 
MOV 



CC*WCT(R2),R0 

RO, #256. 

5* 

#256. , RO 



> Get total remaining uiord count 

iMore than a block wanted?" 

; Br if not 

i Move 1 block this time 



177774 



Move as many blocks of 16 words as possible 



5*: MOV RO, R2 

ASH #-4. R2 

BEQ 6* 

7*: MOV (R5)+, (R4)+ 

MOV <R5)+, <R4) + 

MOV (R5)+, (R4)+ 

MOV <R5)+, (R4> + 

MOV <R5)+, <R4)+ 

MOV (R5)+, <R4)+ 

MOV <R5)+, <R4} + 

MOV <R5)+, (R4) + 

MOV <R5)+, <R4) «- 

MOV <R5)+.. (R4> f- 

MOV <R5)+, (R4) i- 

MOV <R5)+, <R4) i- 

MOV (R5)+, <R4)+ 

MOV <R5)+, <R4)i- 

MOV (R5)+, <R4)^ 



Get 


total number of words to move 


Comp 


ute # blocks of 16 words to move 


Br i 


f less than 16 words need to be moved 


Move 


1 


Move 


2 


Move 


3 


Move 


4 


Move 


5 


Move 


6 


Move 


7 


Move 


8 


Move 


9 


Move 


10 


Move 


11 


Move 


12 


Move 


13 


Move 


14 


Move 


15 



TSCASH - 


— TSX-P 


lus Data Cachm 


RDMOVE - 


— Move 


data from cache 


58 


001110 


012524 


59 


001112 


077221 


60 






61 






62 






63 


001114 


042700 177760 


64 


001120 


001407 


65 


001122 


006200 


66 


001124 


001403 


67 


001126 


012524 


68 


001130 


012524 


69 


001132 


077003 


70 


001134 


103001 


71 


001136 


011514 


72 






73 






74 






75 






76 


001140 


000207 


77 






78 






79 






SO 


001142 


012605 


81 


001144 


012604 


82 


001146 


012602 


83 


001150 


000207 
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B buffer 



MOV <R5>+, (R4)+ 
SOB R2, 7* 



i Move 16 

; Loop if more blocks of 16 left to move 



Notu move any residual uiords (less than 16) 



6*: BIG #-C17, RO 

BEQ 4* 

ASR RO 

BEQ 3* 

2$: MOV <R5)+, <R4)+ 

MOV <R5)+, <R4)+ 

SOB RO, 2* 

3$: BCC 4* 

MOV <R5), <R4) 



i Any words left to move? 

; Br if not 

/Get number of doublewords to move 

> Br if less than 2 uiords to move 

; Move a word 

; Move second word of pair 

;Loop if more doublewords left to move 

; Br if don't have odd word left to move 

; Move last word 



Finished moving data. 

Exit from system state <go to 9*) 



4«: RETURN 

Fini shed 
9$: 



;Exit from system state — go to 9* 



MOV 


<SP)+,R5 


MOV 


<SP)+, R4 


MOV 


( SP ) +, R2 


RETURN 





i 
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001 
001 
001 
001 



152 

154 
156 
160 



001 
001 
001 



162 
170 
174 



1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 

24 

25 001176 

26 001204 

27 001212 

28 001216 

29 001222 
30 

31 
32 

33 00 

34 00 

35 00 

36 00 
37 
38 
39 

40 00 

41 00 

42 00 

43 00 

44 00 

45 00 

46 00 

47 00 

48 00 

49 00 

50 00 

51 00 

52 00 

53 00 

54 00 

55 00 

56 00 

57 00 



. SBTTL WTMOVE 



Move data from user's buffer to cache 



1226 
1232 
1236 
1240 



1244 
1246 
1252 
1254 
1256 
1260 
1262 
1264 
1266 
1270 
1272 
1274 
1276 
1300 
1302 
1304 
1306 
1310 



WTMOVE is called to move a block of data from the user's buffer into 
a cache buffer. 



Inputs: 
R5 = Pointer to cache control block. 



010246 
010446 
010546 
010502 



WTMOVE: MOV 
MOV 
MOV 
MOV 



R2, -(SP) 
R4, -(SP) 
R5. -<SP) 
R5, R2 



/Carry control block pointer in R2 



Enter system state so we can use PARS and PAR6 to map to the cache 
and user buffers. 



004737 OOOOOOG 
OOOOOOG 



. ADDR #9*. RO 
CALL @#ENSYS 
. WORD FP$MOV 



; Go to 9* on exit from system state 

; Enter system state 

» Set fork priority level 



016237 
016237 
012704 
066204 
012705 



016200 
020027 
101402 
012700 



010002 
072227 
001421 
012425 
012425 
012425 
012425 
012425 
012425 
012425 
012425 
012425 
012425 
012425 
012425 
012425 
012425 
012425 



We are now running in system state on the interrupt stack. 
Kernel PARS and PAR6 are free. 
Setup buffer pointers. 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 
000400 



MOV 
MOV 
MOV 
ADD 
MOV 



CC*UBP<R2),©#KPAR5 ; Set PAR base for user's buffer 
CC*CBP(R2>,e#KPAR6 ; Set PAR base for cache buffer 



#VPAR5, R4 
CC*UB0<R2),R4 
#VPAR6, R5 



000400 



Get number of words to move 

MOV CC*WCT<R2),R0 
CMP RO, #256. 
BLOS 5* 
MOV #256. > RO 



Get virtual address base for user's buffer 
Add offset within 64-byte block region 
Get virtual address base for cache buffer 



; Get total remaining word count 

i More than a block wanted? 

i Br if not 

; Move 1 block this time 



Move as many blocks of 16 words as possible 



5*: 



177774 



7$: 



MOV RO, R2 

ASH #-4, R2 

BEQ 6* 

MOV (R4)+, (R5>+ 

MOV <R4)+, (R5)+ 

MOV <R4)+, <R5)+ 

MOV <R4)+, (R5) I- 

MOV <R4)+, <R5)+ 

MOV (R4)+, (R5)-i- 

MOV (R4)+, <R5) I- 

MOV (R4)+, <R5)i- 

MOV (R4)+, <R5)+ 

MOV <R4)+, (R5)+ 

MOV <R4)+, (R5)+ 

MOV <R4)+, (R5>+ 

MOV (R4)+, <R5)+ 

MOV (R4>+, <R5)+ 

MOV <R4)+, (R5)+ 



Get 


total number of words to move 


Get 


# blocks of 16 words to move 


Br i 


f less than 16 words need to be 


Move 


1 


Move 


2 


Move 


3 


Move 


4 


Move 


5 


Move 


6 


Move 


7 


Move 


8 


Move 


9 


Move 


10 


Move 


11 


Move 


12 


Move 


13 


Move 


14 


Move 


15 



moved 
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I 
f 



58 001312 

59 001314 
60 

61 
62 

63 001316 

64 001322 

65 001324 

66 001326 

67 001330 

68 001332 

69 001334 

70 001336 

71 001340 
72 

73 

74 

75 

76 001342 

77 

78 

79 

80 001344 

81 001346 

82 001350 
S3 001352 



012425 
077221 



042700 
001407 
006200 
001403 
012425 
012425 
077003 
103001 
011415 



000207 



012605 
012604 
012602 
000207 



MOV 
SOB 



(R4)+, (R5)+ 
R2, 7* 



} Move 16 

i Loop if more blocks of 16 to move 



Nom move any remaining words (less than 16) 



177760 



6*: 



.'$: 



3*: 



BIC 


#•^017, RO 


BEQ 


4* 


ASR 


RO 


BEQ 


3* 


MOV 


<R4)+, <R5)+ 


MOV 


(R4)+, (R5) + 


SOB 


RO, 2* 


BCC 


4* 


MOV 


(R4), <R5) 



4$: 

i 


RETURN 

Finished 




> 

9$: 


MOV 


<SP)+, R5 




MOV 


(SP)+, R4 




MOV 


<SP)+, R2 




RETURN 





Any words left to move? 

Br if not 

Get number of doublewords to move 

Br if less than 2 words to move 

Move a word 

Move second word of pair 

Loop if more doublewords left to move 

Br if don't have o6^ word left to move 

Move last word 



Finished moving data. 

Exit from system state (go to 9*) 



;Exit from system state — go to 9* 



( 

I 



TSCASH - 
CSHBLD - 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

3B 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 
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— Build empty cache descriptors for new entries 



001354 010146 

001356 010446 

001360 016546 OOOOOOG 

001364 016504 OOOOOOG 



001370 004767 000230 
001374 103407 



001376 

001404 00 SOU 



001406 004767 000360 
001412 000427 



001414 004767 
001420 103004 



001422 013701 OOOOOOG 
001426 004767 001006 



001432 

001440 016511 

001444 

001452 0165U 

001456 

001464 00501.1. 



OOOOOOG 
OOOOOOG 



001466 004767 000434 



. SBTTL CSHBLD 



Build empty cache descriptors for new entries 



CSHBLD is called when uje need to move new data into the cache. 

It builds cache block descriptors for all blocks that will be added 

to the cache and marks the descriptors as empty <CC*WCT=0). 



Inputs: 
R5 — Pointer to cache control block. 



CSHBLD: MOV 
MOV 
MOV 
MOV 



Rl, -<SP) 

R4, -<SP) 

CC*BLK(R5), -<SP>i Save starting block number 

CC«WCT<R5), R4 ; Get total word count 



Begin loop to build an entry for each block. 

See if there is already an entry for the next block. 



1$: 



CALL 
BCS 



CSHLOC 
3* 



■> Is there an entry for the next block? 
i Br if not 



An entry already exists for the next block. 
Mark the entry as empty. 



MAP TO 
CLR 



CA*WCT 
(Rl ) 



; Map to word count table 
i Say entry is empty 



Move this cache block to the head of the LRU chain 
<That is, make it the most recently used) 



CALL 
BR 



CSHUSE 
2* 



iMake this block be the most recently used 



There is not an existing entry for this block. 
See if we can get a free cache block entry. 



3^: 



CALL 
BCC 



CSHGET 
5* 



; Try to get a free cache block entry 
i Br if we got a free entry 



There are no free cache block entries. 

Get the least-recently-uBed entry and use it. 



MOV @#CSHLRU, Rl 
CALL CSHREM 



i Get pointer to least-recently-used entry 
i Remove that entry from all lists 



Set up descriptive information about this entry 



5*: 



MAPTO 

MOV 

MAPTO 

MOV 

MAPTO 

CLR 



CA*BLK 

CC*BLK<R5), (Rl) 

CA*DVU 

CC*DVU(R5), <R1) 

CA*WCT 

(Rl) 



Add new entry to lists 
CALL CSHADD 



Point to block number table 

Set block number 

Map to device & unit number table 

Set device and unit number 

Map to word count table 

Say entry is empty 



Add new cache entry to appropriate lists 
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58 
59 

60 001472 

61 001476 
.500 
,504 

506 

.514 



62 0011 

63 001 

64 001 

65 001 

66 001 
67 

68 
69 

70 001 

71 001 

72 001 

73 001 



516 
522 
524 
526 



005265 
010400 
020027 
101402 
012700 
160004 
001325 



012665 
012604 
012601 
000207 



0000000 



000400 



000400 



Advance block number and see if there are more entries to build 

?*: INC CC«BLK(R5) ; Increment block number 

Get remaining word count 

More than a block? 

Br if not 

# words moved this time 

4*: SUB RO, R4 i Need to build more entries? 

Br if yes 



INC 


CC«BLK(R5) 


MOV 


R4, RO 


CMP 


RO, #256. 


BLOS 


4* 


MOV 


#256. , RO 


SUB 


RO, R4 


BNE 


1* 



F i T i i & h e d 



OOOOOOG 



MOV 
MOV 
MOV 
RETURN 



<SP)+, CC*BLK<R5); Restore original block number 
<SP)+, R4 
<SP)+, Rl 



TSCASH - 
CSHCLN - 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 



25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 



— TSX-Plus Data Caching MAC 
■- Remove all entries for a 



001530 
001532 
001534 



010146 
010246 
013746 



OOOOOOG 
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specified device 

. SBTTL CSHCLN — Remove all entries for a specified device 

CSHCLN is called to remove from the cache all entries for a specified 

devi ce. 

Inputs: 
R3 = Unit # (high byte)^ device # (low byte) 

CSHCLN: MOV R1,-(SP) 
MOV R2, -(SP) 
MOV @#KPAR5, -(SP) ; Save system overlay mapping status 

Determine if caching has been disabled 



001540 005737 0000000 
001544 



001546 013701 
001552 001417 



OOOOOOC 



001554 
001562 
001564 
001572 
001574 



011102 

020311 
00 1 004 



001576 004767 000636 



001602 004767 001070 



001606 010201 
001610 001361 



001612 012637 
001616 012602 
001620 012601 
000207 



0000000 



TST 
BE(3 



@#VCSHNB 
9* 



; Are there any active cache buffers? 
; Br if not 



Begin search through list of all cache entries. 



MOV @#CSHLRU, Rl 
BE(3 9* 



i Point to least-recently-used entry 
; Br if no entries on use list 



See if this entry is for a block on specified device 



1*: MAP TO CA*UBL 

MOV (R1),R2 

MAP TO CA*DVU 

CMP R3, (Rl) 

BNE 2* 



; Map to backiuard link 

/Get pointer to next entry to check 

iMap to device ?< unit # table 

; Is this entry for specified device? 

; Br if not 



We found an entry that needs to be deallocated. 
Remove it from all listr>. 



CALL CSHREM 
Put entry on the free list. 

CALL CSHFRE 
Cht?ck next entry 



2*: 



9*: 



MOV 


R2, Rl 


BNE 


1* 


Finished 




MOV 


(SP)+, @#KPAH5 


MOV 


(SP)+, R2 


MOV 


(SP)+, Rl 


RETURN 





/Remove entry from all lists 



; Put entry on the free list 



;Get pointer to next entry to check 
; Br if there is another to check 



Restore system overlay mapping status 



f 
f 

€ 
f 
< 
I 
i 

€ 
I 

I 
i 
€ 
C 

i 
i 
i 
i 
t 

4 

t 



TSCASH 
CSHLOC - 

1 
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3 
4 
5 
6 
7 

a 

9 
10 
11 
12 
13 
14 
15 
16 

17 00 

18 00 
19 

20 
21 



23 
24 

25 



1624 
1626 



1630 
1634 
1636 
1642 
1644 



00 

00 

00 

00 
26 00 
27 
28 
29 

30 001650 

31 001654 

32 001660 

33 001666 

34 001670 

35 001672 

36 001700 

37 001702 

38 001704 

39 001706 

40 001714 

41 001716 

42 001720 

43 001726 

44 001730 

45 001732 

46 
47 

48 
49 

50 001734 

51 001736 

52 001742 

53 001746 

54 001752 

55 001756 

56 001760 
57 



010246 
010346 



016503 
005002 
07 1 237 
006303 
062703 



016502 
016500 

011301 
001434 

02 0211 
1 1 006 
103426 

020011 
001406 

011101 
00 1 360 
000413 



010103 
162703 
072327 
063703 
01036S 
000241 
000401 



. SETTL CSHLOC — Determine if entry exists in cache table 

Determine if an entry exists in the cache for a specified block 
on a specified device. 

Inputs: 
R5 = Pointer to cache control block. 
CC*BLK(R5) = Block number. 
CC*DVU<R5) = Device and unit numbers. 



Outputs: 
C-fiag cleared ==:> found entry. 
C-fiag set ==> No entry for 
Rl = Cache table index. 
CC*CBP(R5) = 64-byte par offset 



block in cache. 



to start of cache buffer. 



CSHLOC: 



MOV 
MOV 



R2, 
R3, 



< SP ) 
<BP) 



Compute hash head index for this block 



OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 



MOV 
CLR 
DIV 
ASL 
ADD 



CC*BLK<R5),R3 
R2 

@#VCSHNB, R2 
R3 
#VPAR5, R3 



; Get block 
; Clear for 



number 

divide 

number mod number of hash heads 
; Convert remainder to word table index 
;Add virtual address base 



;Get block 



Search hash list for the specified block 



1*: 



2*: 



MOV CC*BLK<R5), R2 

MOV CC*DVU<R5),R0 

MAP TO CA*HSH 

MOV ( R3 ) , R 1 

BEQ 8* 

MAP TO CA«BLK 

CMP R2, (Rl) 

BHI 2* 

BLO 8* 

MAPTO CA*DVU 

CMP RO, <R} ) 

BEO 3* 

MAPTO CA*HFL 

MOV (R1)>R1 

BNE 1* 

BR 8* 



Get 

Get 

Map 

Get 

Br 

Map 

Is 

No, 

No, 

Map 



r 
d 
t 

P 
if 
t 
en 
b 
e 
t 



Is th 
Br if 
Map t 
Get p 
Loop 
Entry 



eque 
evi c 
o ha 
oint 

no 
o bl 
try 
ut t 
ntry 
o de 
is e 

yes 
o ha 
oint 
if t 

doe 



sted block number 

e & unit number 

sh list heads 

er to 1st entry on hash list 

entries on this hash list 

ock number entries 

for desired block? 

here may be more entries 

is not on the list 
vice and unit numbers 
ntry for correct device? 

— We found the entry 
sh forward links 
er to following entry 
here is another entry 
5 not exist 



We found the entry. 

Set up information about this entry 



3$; 



OOOOOOG 
000002 
OOOOOOG 
OOOOOOG 



MOV 
SUB 
ASH 
ADD 
MOV 
Cl,,C 
BR 



R1,R3 
#VPAR5, R3 
#2, R3 

@#CSHBFP, R3 
R3, CC*CBP<R5) 

9* 



i Get address of entry 

i Subtract address bias 

; Compute corresponding buffer 64-byte # 

>Add base 64-byte block # of buffer area 

i Save 64-byte pointer to cache buffer base 

; Signal success on return 
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58 

59 

60 001762 000261 

61 

62 

63 

64 001764 012603 

65 001766 012602 

66 001770 000207 



No entry exists for thi& block 



3* : SEC 
f- i n i B h e d 
9$: 



; Signal failure on return 



MOV (SP)+, R3 
MOV ( SP ) +, R2 
RETURN 



( 

c 

i 
C 
( 
( 
( 
i 
i 
i 
i 

i 

i 
i 
i 
i 
i 
i 
i 
i 



TSCASH • 


-- TSX-Plus Data 


Caching 


CSHUSE • 

1 

2 
3 


— Make 


cache en 


try be m 








4 








5 








6 








7 








8 








9 


001772 


010246 




10 


001774 


010346 




11 








12 








13 








14 


001776 


020137 


0000000 


15 


002002 


001446 




16 








17 








IS 








19 


002004 






20 


002012 


011103 




21 


002014 






22 


002022 


011102 




23 


002024 


00 1 003 




24 


002026 


010337 


OOOOOOG 


25 


002032 


000404 




26 


002034 






27 


002042 


010312 




28 


002044 


005703 




29 


002046 


001003 




30 


002050 


010237 


OOOOOOG 


31 


002054 


000404 




32 


002056 






33 


002064 


010213 




34 








35 








36 








37 


002066 


013702 


OOOOOOG 


38 


002072 






39 


002100 


010112 




40 


002102 


005011 




41 


002104 






42 


002112 


010211 




43 


002114 


010137 


OOOOOOG 


44 








45 








46 








47 


002120 


012603 




48 


002122 


012602 




49 


002124 


000207 
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. SBTTL CSHUSE — Meke cache entry be most-recently-used 

CSHUSE is called to mal<e a specified cache entry be the 
most recently used entry. 

Inputs: 
Rl -• Cache entry to be made most-recently-used. 



CSHUSE: MOV 
MOV 



R2, -<SP> 
R3, -<SP) 



See if entry already is most recently used 



CMP R1,@#CSHMRU 
BEQ 9* 

Remove entry from LRU list 



1*: 
2*: 

3«: 



MAPTO 


CAtUFL 


MOV 


<R1), R3 


MAPTO 


CA*UBL 


MOV 


<R1),R2 


13 NE 


1* 


MOV 


R3, @#CSHMRU 


BR 


2* 


MAPTO 


CA*UFL 


MOV 


R3, <R2) 


TST 


R3 


BNE 


3* 


MOV 


R2, ©#CSHLRU 


BR 


4* 


MAPTO 


CA*UBL 


MOV 


R2, <R3) 



Add entry to end of LRU iis-t 



4$: 



9*: 



MOV 


@#CSHMRU, Rr.' 


MAPTO 


CA*UBL 


MOV 


Rl, <R2) 


CLR 


<R1) 


MAPTO 


CA*UFL 


MOV 


R2, (Rl) 


MOV 


Rl, @#CSHMRU 


Finished 




MOV 


<SP)+, R3 


MOV 


(SP)+, R2 


RETURN 





;Is entry already most recently used? 

i Br if yes 



i Map to LRU forward link 

i Get pointer to entry that follows us 

; Map to LRU backmard link 

>Get pointer to entry that precedes us 

; Br if me are not at the head of the list 

; Say following entry is nou» head of list 

i Map to LRU ^^oru»ard link 

J Make previous entry point to following entry 

j Is there a following entry? 

i Br if yes 

; Say previous entry is now last entry in list 

i Map to LRU backward link 

;Make following entry point to previous entry 



Get index to current MRU entry 
Map to blackward link table 
Make previous MRU entry point back to us 
Make our backward link O 
Map to forward link table 
Make us point to previous MRU entry 
; Say we are MRU entry 



i 
I 

4 

i 
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3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 



002126 
002130 
002132 



002134 
002140 
002142 
002150 
002152 
002154 
002162 
002164 
002170 



002172 
002176 
002202 



002220 



002222 
002230 
002232 
002234 
002240 
002242 
002246 
002254 
002256 



002260 
002262 



002300 
002302 



010246 
010346 
010446 



013702 
001414 

010112 
005011 

010211 
010137 
000414 



010137 
010137 

005011 

005011 



011103 
005002 
07 1 237 
006303 
062703 

011302 
001012 



010113 

005011 

005011 
000452 



. SBTTL CSHADD — Add cache table entry to appropriate lists 

CSHADD is called to add a new cache table entry to the LRU and Hash lists. 
The entry is placed at the head of the LRU list and is placed on the 
appropriate hash list based on its block number. 



CSHADD: MOV 
MOV 
MOV 



R2, ~<SP) 
R3, -<SP) 
R4, -<SP) 



Add entry to end of LRU list 

(That is* make it the most recently used entry) 



0000000 



0000000 



MOV 


@#CSHMRU, R2 


BEQ 


4* 


MAPTO 


CA*UBL 


MOV 


Rl* <R2> 


CLR 


<R1) 


MAPTO 


CA*UFL 


MOV 


R2, <R1) 


MOV 


Rl, e#CSHMRU 


BR 


5* 



Get index to current MRU entry 

Br if list is empty 

Map to blackufard link table 

Make previous MRU entry point back to us 

Make our backward link O 

Map to forward link table 

Make us point to previous MRU entry 

Say we are MRU entry 



We are the only entry on the LRU list 



0000000 
0000000 



4«: 



MOV 


Rl, @#CSHMRU 


MOV 


R 1 , S#CSHLRU 


MAPTO 


CA*UFL 


CLR 


(Rl) 


MAPTO 


CA*UBL 


CLR 


(Rl) 



5*: 



0000000 
0000000 



} Say we are the most recently used entry 

; And the least recently used entry 

i Map to forward link list 

; No forward link for us 

; Map to backward link list 

; No backward link for us 

Now add entry to the appropriate hash list based on the block number. 

Map to block # table 

Get block # of this entry 

Clear for divide 

Make block # mod number of list heads 

Convert remainder to word table index 

All addresses are relative to par5 

Map to hash list heads 

Get current entry at front of list 

Br if list has some entry 

The hash list is currently empty. 
Make? our item be only entry on list. 

iMake hash list head point to us 
; Map to hash forward link table 
i Say we are last entry on list 
; Map to hash backward link table 
; Say we are first entry on list 

There are some entrier. on the hash list. 

Insert our entry in front of 1st entry with same or higher block number. 



MAPTO 


CA*BLK 


MOV 


<R1),R3 


CLR 


R2 


DIV 


@#VCSHNB, R2 


ASL 


R3 


ADD 


#VPAR5, R3 


MAPTO 


CAfHSH 


MOV 


(R3), R2 


BNE 


1* 



MOV 


Rl, (R3) 


MAPTO 


CA*HFL 


CLR 


<R1) 


MAPTO 


CA«HBL 


CLR 


<R1) 


BR 


9* 



TSCASH - 


— TBX-P 


I us Dat 


CSHADD - 


— Add cache ta 


58 


002304 




59 


002312 


01 1104 


60 


002314 




61 


002322 


020412 


62 


002324 


101415 


63 


002326 


010200 


64 


002330 




65 


002336 


01120;.? 


66 


002340 


001365 


67 






68 






69 






70 


002342 


010110 


71 


002344 


005011 


72 


002346 




73 


002354 


010011 


74 


002356 


000424 


75 






76 






77 






78 


002360 




79 


002366 


010211 


80 


002370 




81 


002376 


011200 


82 


002400 


010112 


S3 


002402 


010011 


84 


002404 


001005 


85 


002406 




86 


002414 


010113 


87 


002416 


000404 


88 


002420 




89 


002426 


010110 


90 






91 






92 






93 


002430 


012604 


94 


002432 


012603 


95 


002434 


012602 


96 


002436 


000207 
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cache tabic? entry to appropriate lists 



1*: 



MAPTD 


CA$BLK 


MOV 


<R1),R4 


MAP TO 


CA$ELK 


CMP 


R4. <R2) 


BLDS 


3* 


MOV 


R2, RO 


MAP TO 


CA*HFL 


MOV 


< R2 ) , R2 


BNE 


2* 



; Map to block # table 

; Get our block number 

; Map to block number table 

i Search for Ist entry with same or higher blk 

i Br if found insert point 

J Save address of last entry checked 

i Map to hash forward link 

; Get pointer to next entry on this list 

i Loop if there is another one 



Add our entry to the tail of the hash list 



MOV 


Rl, (RO) 


CLR 


<R1) 


MAP TO 


CA*HBL 


MOV 


R0> (Rl) 


BR 


9* 



us 



Make last forward link point to 
Say nothing follows us 
Map to hash backward link table 
Set pointer to previous entry 



Insert our entry into list in front of entry pointed to by R2. 

Map to hash forward links 
Remember which entry follows us 
Map to hash backward links 
Find out which entry precedes us 
Make following entry point back to 
Set our backward pointer 
Br if we are not at head of list 
Map to hash list head 
>Make list head point to us 

> Map to forward links 

iMake previous entry point to us 



3*: 


MAP TO 


CA*HFL 




MOV 


R2, <R1) 




MAP TO 


CA*HBL 




MOV 


(R2),R0 




MOV 


Rl, <R2) 




MOV 


R0> (Rl) 




BNE 


6* 




MAP TO 


CA*HSH 




MOV 


Rli (R3) 




BR 


9* 


6$: 


MAP TO 


CA*HFL 




MOV 


Rl, (RO) 




Finished 




9*: 


MOV 


(SP)+, R4 




MOV 


(SP)+, R3 




MOV 


(SP)+, R2 




RETURN 





us 



TSCASH - 
CSHREM - 

1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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002440 
002442 
002444 



002530 
002536 
002540 
002542 
002546 
002550 
002554 



002556 
002564 
002566 
002574 
002576 



002600 
002606 
002610 



i 

€ 



010246 
010346 
010446 



002446 

002454 011103 

002456 

002464 01 no;'] 

002466 001003 

002470 010337 

002474 000404 

002476 

002504 010312 

002506 005703 

002510 001003 

002512 010237 

002516 000404 

002520 

002526 010213 



011103 
005002 
071237 
006303 
062703 
010304 



011103 

011102 
00 1405 



010312 
000404 



. SBTTL CSHREM — Rc>move cache block entry from all lists 

CSHREM is called to remove a cache block entry from the LRU list 
and from the hash list. 

I n p u t B : 
Rl = Index to cache block entry to be removed. 



CSHREM: MOV 
MOV 
MOV 



R2, -<SP) 
R3, -<SP> 
R4, -<SP) 



Remove entry from LRU list 



OOOOOOQ 



0000000 



1*: 
2*: 

3*: 



MAP TO 


CAfUFL 


MOV 


<R1),R3 


MAP TO 


CA*UBL 


MOV 


(R1),R2 


BWE 


1* 


MOV 


R3, @#CSHMRU 


BR 


2* 


MAP TO 


CA*UFL 


MOV 


R3, (R2) 


TST 


R3 


BWE 


3* 


MOV 


R2, e#CSHLRU 


BR 


4* 


MAPTO 


CA$UBL 


MOV 


R2, (R3) 



Map to LRU forward link 

Get pointer to entry that follouis us 

Map to LRU backward link 

Get pointer to entry that precedes us 

Br if tue are not at the head of the list 

Say following entry is now head of list 

; Map to LRU forward link 

;Make previous entry point to following entry 

; Is there a following entry? 

; Br if yes 

i Say previous entry is now last entry in list 

J Map to LRU backward link 

jMake following entry point to previous entry 



Remove entry from hash list. 
Compute the hash table index. 



4$: 



0000000 



0000000 



MAPTO 


CA$BLK 


MOV 


<R1>,R3 


CLR 


R2 


DIV 


@#VCSHNB, R2 


ASL 


R3 


ADD 


#VPAR5, R3 


MOV 


R3>R4 



Map to block number table 

Get block number 

Clear for divide 

Get index modulus number of hash list heads 

Convert remainder to word table index 

Bias by PARS base 

Save hash head index 



Get our hash forward and backward links 



MAPTO 


CA*HFL 


MOV 


(R1),R3 


MAPTO 


CA*HBL 


MOV 


( R 1 > , R2 


BEQ 


5* 



Map to hash forward link 

Get pointer to following entry 

Map to hash backward link 

Get pointer to previous entry 

Br if we are at the head of the list 



We are not the 1st entry in the list. 



1APT0 


CA*HFL 


^lOV 


R3, (R2) 


BR 


6* 



Map to hash forward link 

Make previous entry point to following entry 



We are the 1st entry in the list 



€ 

C 



TSCASH - 
CSHREM ■ 

58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
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002612 

002620 010314 



002622 005703 

002624 001404 
002626 

002634 010213 



002636 012604 

002640 012603 

002642 012602 

002644 000207 



5*: 



MAP TO 
MOV 



CA*HSH 
R3. (R4) 



Update entry that follows us 



6*: 



9$: 



TST 


R3 


BEQ 


9* 


MAP TO 


CA*HBL 


MOV 


R2, <R3> 


Fini shed 




MOV 


<SP)+, R4 


MOV 


<SP)+>R3 


MOV 


(SP)+, R2 


RETURN 





i Map to hash list heads 

;Make hash list head point to following entry 



> Is there a following entry? 

; Br if not 

; Map to hash backward link 

iMake following entry point to preceding entry 



f 
f 



TSCASH - 
CSHGET - 

1 

rl 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 
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— Try to qet a free cache block entry 



002646 



002646 013701 0000000 
002652 001407 



002654 

002662 011137 OOOOOOG 

002666 000241 

002670 000401 



002672 000261 



002674 000207 



. SBTTL CSHGET — Try to get a free cache block entry 
CSHGET is called to try to get a free cache block entry. 



Outputs: 
C-flag cleared ==> A free cache block entry Ufas gotten. 
C -f lag set ==> There are no free cache blocks available. 
Rl - Address of free cache block. 

CSHGE'I : 

Get entry off of front of free list 



MOV @#CSHFHD> R 1 

BEQ 8* 



» Is there a free entry? 
j Br if not 



We got a free entry* remove it from the list. 



MAPTO CA*UFL 

MOV <Rl),e#CSHFHD 

CLC 

BR 9« 

There are no free entries 
8$: SEC 

Fini shed 
9*: RETURN 



; Map to forward link list 
i Remove entry from list 
/Signal success on return 



Signal failure on return 
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1 

2 

3 

4 

5 

6 

7 

a 002676 013700 OOOOOOG 

9 002702 010137 OOOOOOG 

10 002706 

11 002714 010011 

12 002716 000207 



. SBTTL CSHFRE — Return a cache block entry to the free list 

CSHFRE is called to return a cache block entry to the free list. 

Inputs: 
Rl = Index of cache block entry to be freed. 



CSHFRE: MOV 
MOV 
MAP TO 
MOV 
RETURN 



@#CSHFHDi RO 
R 1 , e#CSHFHD 
CA*UFL 
RO, (Rl) 



J Get pointer to 1st entry on free list now 

J Say we are 1st entry on free list 

; Map to forward link list 

;Make us point to next entry on free list 



y 
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SBTTL CSHTST — Determine if device is mounted 



3 

4 

5 

6 

7 

8 

9 

10 

1.1. 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 
49 

50 
51 



CSHTST is called to determine if the device associated with the current 
I/O operation is mounted and should be cached. 

Inputs: 
Rl = Pointer to I/O queue element. 

Outputs: 
C-flag cleared ==> Device is mounted and should be cached. 



002720 010246 
002722 010546 



002724 116100 OOOOOOG 

002730 042700 177770 

002734 000300 

002736 116102 OOOOOOG 

002742 001417 



002744 032762 000000<5 OOOOOOG 
002752 001013 



002754 050002 

002756 013705 OOOOOOG 

002762 020265 OOOOOOG 

002766 001407 

002770 062705 OOOOOOG 

002774 020537 OOOOOOG 

003000 103770 



003002 000261 
003004 000401 



003006 000241 



003010 012605 
003012 012602 
003014 000207 



CSHTST: MOV 
MOV 



R2, ~<SP) 
R5, -<SP) 



Get device index number and unit number 



liOVB 


0. UNIT(R1>,R0 


BIC 


#-^C7, RO 


SWAB 


RO 


MOVE 


Q. DEVX<R1)>R2 


BEQ 


3* 



1*: 



Get unit number 

Clear all but unit number 

Put in high-order byte 

Get device index number 

Br if I/O operation has been cancelled 

See if this device is eligible for caching 

BIT #DX*NCA, DVFLAG<R2); Is the no-cache flag set for this device? 
BNE 3* ; Br if caching not allowed 

Search table of mounted devices 

; Combine unit number and device number 

i Point to start of table 

; Is this entry for this device? 

J Br if yes — Device is mounted 

i Point to next entry 

iChecked all? 

; Loop if not 

Device is not cached 



BIS 


RO, R2 


MOV 


e#CSHDEV, R5 


CMP 


R2, CD*DVU<R5) 


BEQ 


2* 


ADD 


#CD«*SZ, R5 


CMP 


R5,@#CSHDVN 


BLO 


1* 



3«: SEC 






BR 




9* 


\ Device is 


mounted 


2*: CLC 






; Finished 






9* : MOV 




(SP)+, R5 


MOV 




< SP ) +, R2 


RETURN 





Signal that device is not mounted 



Signal that device is mounted 



TSCASH • 


— TSX-Plus Data 


Cach ing 


HACRO VO 


CCBGET • 
1 


— Get a 


9rQB cache cont 


rol block 


3 
4 
5 










6 










7 










8 










9 










10 










11 










12 










13 










14 










15 










16 










17 










IS 


003016 


010246 






19 


003020 


010346 






20 










21 










22 










23 


003022 








24 


003030 


013705 


0000000 




25 


003034 


001015 






26 










27 










28 










29 










30 


003036 


113705 


OOOOOOG 




31 


003042 


052765 


OOOOOOG 


OOOOOOG 


32 


003050 


012700 


OOOOOOG 




33 


003054 


004737 


OOOOOOG 




34 


003060 


042765 


OOOOOOG 


OOOOOOG 


35 


003066 


000755 






36 










37 










38 










39 










40 


003070 


016537 


OOOOOOG 


OOOOOOG r 


41 










42 










43 










44 


003076 


013765 


OOOOOOG 


OOOOOOG 


45 


003104 


010537 


OOOOOOG 




46 


003110 


005237 


OOOOOOG 




47 


003114 








48 








J 


49 








t 


50 








> 


51 


003122 


010567 


174664 




52 


003126 


010167 


174662 




53 


003132 


010165 


OOOOOOG 




54 


003136 


016165 


OOOOOOG 


OOOOOOG 


55 


003144 


016100 


OOOOOOG 




56 


003150 


002001 






57 


003152 


005400 
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S13TTL CCBGET 



Get a free cache control block 



Get a free cache control block and initialize it with information 
from the I/O queue element. 



Inputs: 
Rl = Pointer to I/O queue element. 



Outputs: 
R5 == Pointer 

CCieDVU<R5) = 

CC*BLK(R5> = 

CC*0QE<R5) = 

CC*UBP<R5) = 

CC^UB0<R5) = 

CC*WCT(R5) = 

CCBGET: MOV R2, 
MOV R3, 



to cache control block. 

Unit number <high byte), device number (low byte). 

Starting block number for transfer. 

Address of original I/O queue element. 

64-byte block number of base of user's buffer. 

Offset tuithin 64-byte block of user's buffer base. 

Total word count. 



•<SP) 
•<SP) 



See if there is a free cache control block available 



1$: 



DISABL 

MOV 

BNE 



e#CCBHD. R5 
2* 



Disable interrupts 

Is there a free control block? 

Br if yes 



There are no free cache control blocks. 
Suspend job until one becomes available. 



There 

Claim 



MOVE 

BIS 

MOV 

CALL 

BIC 

BR 

i s 

it 

MOV 



@#CORUSR, R5 
#*NOABT, LSW9<R5) 
#S«QCCB> RO 
g#QNSPNX 

#*NOABT, LSW9<R5) 
1* 



; ; Get job inde.i( number 

;; Disallow job aborts 

;; Waiting for cache control block 

>; Suspend job till control block freed 

Reenable job aborts 

Go try again 



a free cache 
for our job. 



control block, 



CC*LNK<R5). €!#CCBHDi ;; Remove control block from free list 



Put control block on list for job so it will be freed if job aborts 



MOV 
MOV 
INC 
ENABL 



@#JOBCCB, CC*LNK<R5)^ i i Add to list for job 
R5. @#JOBCCB 

i ; One more pending cache control block 

Enable interrupts 



@#NPCCB 



Set up information in control block 



MOV 
MOV 
MOV 
MOV 
MOV 
BGE 
NEG 



R5, CURCCB iSave 
Rl/ lOQIN ;Save 
Rl, CC*0QE<R5) ;SavB 
Q. BLKN<R1 ), CC*BLK<R5) 



address of 
address of 
address of 
; Set block 



current control block 
original queue element 
original queue element 
number 



Q. WCNT(Rl), RO 

3$ 

RO 



; Get word count 
; Br if positive 
; Get positive word count 



( 
c 
i 
i 
i 
i 
c 
f 

c 
I 

€ 
4 

i 

i 
i 
i 
i 
i 
i 
t 
i 



TSCASH -- 
CCBGET — 

58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
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003154 
003160 
003164 
003170 
003174 
003202 
003206 
003212 
003214 



003230 
003232 
003236 



he: 
003244 
003246 



010065 
116100 
042700 
110065 
116165 
016102 
162702 
005003 
073227 
066102 
010265 
000303 
072327 
010365 



012603 
012602 
000207 



OOOOOOG 

OOOOOOG 

177770 

00000 IG 

OOOOOOG OOOOOOG 

OOOOOOG 

OOOOOOG 

177772 

OOOOOOG 

OOOOOOG 

177776 
OOOOOOG 



3*: 



MOV 

MOVE 

BIC 

MOVE 

MOVE 

MOV 

SUB 

CLR 

ASHC 

ADD 

MOV 

SWAB 

ASH 

MOV 

Finished 

MOV 
MOV 
RETURN 



; Set iDord count 
; Get unit number 
i Clear all but unit number 
i Put unit number in high-order byte 
DEVX<R1 ), CC*DVU(R5) ; Put device number in loui-order byte 
i Get virtual address of user's buffer 
i Remove virtual address bias 
i Clear for shift 

i Convert address to 64-byte block number 
>Add base 64-byte block number 
iThis is the 64-byte block # of buffer base 
; Get byte within block to low-order of R3 



RO, CC*WCT<R5> 

Q. UNIT<R1), RO 

#■■■^07, RO 

RO, CC*DVU+1<R5) 

G 

Q. BUFF(R1),R2 

#VPAR6, R2 

R3 

#-6. , R2 

Q. PAR<R1), R2 

R2, CC*UBP<R5) 

R3 

#-2, R3 

R3, CC*UE0(R5) 



Save offset within 64-bytB block 



(SP)+, R3 
(SP)+, R2 
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CCBFRE -~ Free a cache control block 

1 . BBTTL CCBFRE — Free a cache control block 

Free a cache control block. 

Inputs: 
R5 = Address of cache control block being freed. 

003250 CCBFRE: 

Remove cache control block from active list for this job 

#jaBCCB-CC*LNK, RO 



i 



3 

A 

5 

6 

7 

8 

9 

10 

H 

12 

13 

14 

15 

16 

17 

18 

19 

20 

O 1 

su X 

22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 



003250 012700 OOOOOOC 

003254 

003262 026005 0000000 1$: 

003266 001403 

003270 016000 0000000 

003274 000772 

003276 016560 0000000 OOOOOOG 2*: 

003304 005337 OOOOOOG 



003310 013765 0000000 OOOOOOG 

003316 010537 OOOOOOG 

003322 

003330 005067 174456 



003334 012700 OOOOOOG 
003340 004737 OOOOOOG 



MOV 

DISABL 

CMP 

BEQ 

MOV 

BR 

MOV 

DEC 



Get dummy pointer to list head 

#* Disable interrupts «# 

Is our block next one in list? 

Br if yes 

Link forward to next block 



CC*LNK(R0)>R5 

2* 

CC*LIMK<R0)>R0 

1* 

CC*LNK(R5), CC*LNK(RO); i ; Remove block from list 

@#NPCCB ; i j One less pending cache control block 



Put control block on free list 



MOV 
MOV 
EWABL 
CLR 



@#CCBHD. CC*LNK<R5) 
R5, e#CCBHD 



; ; Put control block on free list 



Enable interrupts 
Say no longer using this control block 



CURCCB 

Restart any jobs that avfi waiting for a control block 

j Get utait state code 

; Restart any waiting jobs 



003344 000207 



MOV 


#S*QCCB, RO 


CALL 


@#UREGO 


F" i n i & h e d 




RETURN 





I 

€ 



TSCASH 
CSHFIN 
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Completion of a mapped I/O operation 



1 
2 
3 
4 
5 
6 
7 

a 

9 
10 

11 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 



003346 010446 



003350 016504 0000000 



003354 004767 177670 



003360 004737 OOOOOOG 



003364 012604 
003366 000207 



. SBTTL CSHFIN — Completion of a mapped I/O operation 
; CSHFIN is called when a cached data transfer is completed. 

i 

> Inputs: 

; R5 = Address of cache control block. 

f 

CSHFIN: MOV R4, -<SP) 

> Get the address of the original I/O queue element 

MOV CC*0QE<R5)» R4 i Get address of original queue element 

i 

. Free the cache control block 

CALL CCBFRE ; Free the cache control block 

i 

i Do I/O completion for the orignal queue element 

i 

CALL e#IOCMPL 'Do I/O completion 

i 

} F'inished 
> 

MOV (SP)+, R4 

RETURN 



i 



TSCASH 
CSHGTQ 
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— Get a free I/O queue element 



SBTTL CSHGTQ — Get a free I/O queue element 



3 
4 
5 
6 
7 
8 

10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 



Get a free I/O queue element and initialize it with information from 
the cache control block and the original I/O queue element. 

Inputs: 
R5 = Pointer to cache control block. 

Outputs: 
Rl ~ Pointer to new queue element. 



003370 010346 
003372 010446 



003374 016504 OOOOOOG 
003400 004737 OOOOOOG 
003404 010167 174406 



003410 010103 

003412 012700 OOOOOOC 

003416 012423 

003420 077002 



CSHGTQ: MOV 
MOV 



00342 



152761 OOOOOOC OOOOOOG 



003430 010561 OOOOOOG 



003434 016561 OOOOOOG OOOOOOG 

003442 016561 OOOOOOG OOOOOOG 

003450 016561 OOOOOOG OOOOOOG 

003456 012700 OOOOOOG 

003462 066500 OOOOOOG 

003466 010061 OOOOOOG 



003472 012604 
003474 012603 
003476 000207 



R3, -<SP) 
R4, -(SP) 



Get a free I/O queue element 

MOV CC*0QE<R5)>R4 
CALL @#GETQ 
MOV Rl, lOQOUT 



; Get address of original queue element 

; Get a free I/O queue element 

i Save address of secondary I/O queue element 



1$: 



Copy information from original queue element to new queue element 

; Get address of new queue element 

i Get number of words to move 

iCopy contents of original queue element 

Set flags in new I/O queue element saying: <1) this is a secondary 
I/O operation for data caching; and. (2) the completion routine is 
a system routine that is to be called in kernel mode. 



MOV 


Rl, R3 


MOV 


#I0QSIZ/2, RO 


MOV 


(R4)+-, (R3) + 


SOB 


RO, 1* 



BISB 



#QF*CIO!QF*SCR/ Q. FLAG(R1 ) ; Cashing I/O & system compl rtn 



Store the address of the cache control block into the cell of the 
I/O queue element normally used for the channel number. 
This will cause the address of the cache control block to be passed 
to the completion routine in Rl. 

MOV R5, Q. CHAN(Rl) ; Set address of control block as "channel #" 

Now set up information from the cache control block 



MOV 
MOV 
MOV 
MOV 
ADD 
MOV 

Finished 



CC*BLK<R5), Q. BLKN(Rl) ; Set block number 

CC*WCT(R5),Q. WCNT<R1> i Set word count 

CC*UBP<R5), Q. PAR<R1 ) i Set 64-byte block number of buffer base 



MOV 
MOV 
RETURN 



#VPAR6, RO 
CC*UB0(R5),R0 
RO, Q. BUFF(Rl) 



( SP ) +, R4 
<SP>+, R3 



Get virtual address bias of buffer 
Add buffer offset within 64-byte block 
Set buffer virtual address 



TSCASH - 


— TSX-Plus Data 


CSHCNT - 


— Keep 


track of 


1 






2 






3 






4 






5 






6 






7 






S 






9 






10 






11 






12 






13 






14 


003500 


010246 


15 


003502 


012102 


16 






17 






IS 






19 


003504 


060062 


20 


003510 


005512 


21 


003512 


102002 


22 






23 






24 






25 






26 


003514 


004767 


27 






28 






29 






30 


003520 


012602 


31 


003522 


000201 
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cac^e usage statistics 



ooooo: 



000004 



. SBTTL CSHCNT — K€?ep track of cache usage statistics 

CSHCNT is called to add a value to one of the cache statistic counters. 

The form of the call is: 



MOV 
JSR 
. WORD 



value* RO 
Rl, CSHCNT 
counter 



i Get value to be added to counter 

i Update counter 

; Address of counter to be augmented 



The counters are all 32-bits long luith the high-order value stored 

in the first word. 

If a counter overflous* all counters are zeroed. 



CSHCNT: MOV 
MOV 



R2, -<SP) 
<R1)+,R2 



; Get pointer to statisitcs cells 
Add value to low-order word and propogate carry to high-order word 



ADD 
ADC 
BVC 



RO, 2<R2) 

<R2) 

9* 



j Add value to low-order word 

; Propogate carry to high order word 

i Br if counter did not overflow 



A counter overflowed. 

Clear all statistic counters to zero. 



9*: 



CALL 

Fini shed 

MOV 
RTS 



CSHZRO 



< SP ) +, R2 
Rl 



; Zero all statistic counters 



t 

c 
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CSHZRO — Reset all statistic counters to zero 



1 
2 
3 
4 
5 
6 
7 

a 

9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 



003524 



003524 005037 0000000 

003530 005037 000002G 

003534 005037 0000000 

003540 005037 0000020 

003544 005037 0000000 

003550 005037 0000020 

003554 005037 0000000 

003560 005037 0000020 

003564 005037 0000000 

003570 005037 0000020 

003574 005037 OOOOOOG 

003600 005037 0000020 



003604 000207 



. SBTTL CSHZRO — Reset all statistic counters to zero 
Zero all data cache statistic counters. 
CSHZRO: 



Zero all statistic counters 



CLR 


@#CASTRO 


CLR 


@#CASTR0+2 


CLR 


@#CASTBR 


CLR 


@#CASTBR+2 


CLR 


@#CASCBR 


CLR 


e#CASCBR+2 


CLR 


@#CASTWO 


CLR 


@#CASTW0+2 


CLR 


@#CASTBW 


CLR 


@#CASTBW+2 


CLR 


@#CASCUP 


CLR 


@#CASCUP+2 


Finished 




RETURN 





i Total number of read operations 

; Total number of blocks read 

^Blocks read from cache 

f Total number of write operations 

; Total number of blocks written 

i Total number of blocks moved into cache 



TSCASH 
CSHSCH 
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-- See if systiJm job scheduler should be called 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

U 

12 

13 

14 

15 

16 

17 

18 



003606 105737 0000000 
003612 001402 



003614 004737 0000000 



003620 000207 



. SBTTL CSHSCH — See if system job scheduler should be called 

CSHSCH is called periodically during lengthy operations such as moving 
data from cache buffers to/from user buffers to see if the job 
scheduler should be called to give other jobs a chance to run. 
This is done so that the data caching operations don't lock out 
other jobs for an extended period of time. 



CSHSCH: TSTB 
BEQ 



@#DOSCHD 
9* 



;Does the job scheduler need to be called? 
; Br if not 



Call job scheduler and allow higher priority jobs to run 

CALL @#SCHED iCall job scheduler 

Finished 
9*: RETURN 
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CSHINI — Data caching system initialization 



1 
2 
3 
4 
5 

6 003622 010146 

7 003624 010246 

8 003626 013746 0000000 
9 

10 
11 

12 003632 005737 0000000 

13 003636 001437 
14 

15 

16 

17 003640 012701 0000000 

IS 003644 010137 OOOOOOG 

19 003650 

20 003656 013700 OOOOOOG 

21 003662 005300 

22 003664 003406 

23 003666 010102 

24 003670 062702 000002 

25 003674 010211 

26 003676 010201 

27 003700 077006 

28 003702 005011 
29 

30 
31 

32 003704 005037 OOOOOOG 

33 003710 005037 OOOOOOG 
34 

35 

36 

37 003714 012701 OOOOOOG 

33 003720 013700 OOOOOOG 

39 003724 

40 003732 005021 

41 003734 077002 
42 

43 

44 

45 003736 004767 177562 

46 

47 

48 

49 003742 012637 OOOOOOG 

50 003746 012602 

51 003750 012601 

52 003752 000207 

53 000001 
Errors detected: 



. SBTTL CSHINI — Data caching system initialization 

CSHINI is called during system initialization to initialize the 
data caching system. 



CSHINI: MOV 
NOV 
NOV 



Rl, -<SP) 
R2, -<SP) 
e#KPAR5, -(SP) 



; Save kernel PARS mapping 
See if there are any active cache buffers 



TST 
BEQ 



e#VCSHNB 
9* 



; Any active cache buffers? 
j Br if not 



Put all data cache entries on the free list 



1*: 



3*: 



NOV 


#VPAR5, Rl 


NOV 


R1,@#CSHFHD 


NAPTO 


CA*UFL 


NOV 


@#VCSHNB, RO 


DEC 


RO 


BLE 


3* 


NOV 


R1,R2 


ADD 


#2, R2 


NOV 


R2, <R1) 


NOV 


R2, Rl 


SOB 


RO, 1* 


CLR 


<R1) 



; Get virtual address of 1st entry 

; Set pointer to 1st free entry 

;Nap to forward link chain 

; Get total number of data cache entries 

Br if only 1 entry 

Get address of current entry 

Get address of next entry 

Nake current entry point to next entry 

Get pointer to next entry 

Loop if more to link together 

Zero the last forward link 



Say LRU chain is empty 



CLR 
CLR 



@#CSHNRU 
SttCSHLRU 



No most-recently-used entry 
No least-recently-used entry 



Zero all of the hash list heads 



?*: 



NOV 


#VPAR5>R1 


NOV 


e#VCSHNB, RO 


NAPTO 


CA*HSH 


CLR 


(Rl) + 


SOB 


RO, 2* 



; Get virtual address of Ist entry 
; Get total number of entries 
;Nap to hash list heads 
; Zero each one 



Zero all cache statistic counters 



9*: CALL 

Finished 

NOV 
NOV 
NOV 

RETURN 
. END 



CSHZRD 



(SP)+, e#KPAR5 
<SP)+. R2 
<SP)+, Rl 



i Zero all statistic counters 



{Restore kernel PARS mapping 



*** Assembler statistics 
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CSHINI — Data caching system initialization 

Work file reads: 

Work file writes: 

Size of uork file: 8613 Words < 34 Pages) 

Size of core pool: 17920 Words ( 70 Pages) 

Operating system: RT-~1 1 

Elapsed time: 00: 00: 2r7. 45 

DK: TSCASH, LP: TSCASH=DK: TSCASH. MAC/C/N: SVM 



( 


TSCASH 


— TSX-Pl 


us Data Cac 


hing MACRO 


V05. 04 


Friday 18- 


-Dec-87 12: 


00 Page S-1 


















Cross reference 


table (CREF 


V05. 04) 


























*NOABT 


1-36 


20-31 


20-34 


























. . . V2 


4-25 


4~P.5 


4-25 


4-25 


4-25 


4-25 


4-25 


4-25 


4-25 


4- 


-25 


4-25 


4- 


-25 






4-25 


4-25 


4-25 


4-25 


4~25# 


4-25# 


4-25# 


6-16 


6-16 


6- 


-16 


6-16 


6- 


-16 






6-16 


6-16 


6-16 


6-16 


6-16 


6-16 


6-16 


6-16 


6-16 


6- 


-16 


6-16 


6- 


-16# 






6-16# 


6-16# 


9-17 


9-17 


9-17 


9-17 


9-17 


9-17 


9-17 


9- 


-17 


9-17 


9- 


-17 






9-17 


9-17 


9-17 


9-17 


9-17 


9-17 


9-17# 


9-17# 


9-17# 


10- 


-17 


10-17 


10- 


-17 






10-17 


10-17 


10-17 


10-17 


10-17 


10-17 


10 17 


10-17 


10-17 


10- 


-17 


10-17 


10- 


-17 




C. CSW 


10-17 
1-26 


10-17# 
5-16 


10-17# 


10-17# 
























CA*BLK 


1-28 


11-47 


13-35 


15-35 


15-58 


15-60 


16-34 


















CA*DVU 
CA$HBL 


1-26 

1-20 


11-49 

15-51 


12-27 
15-72 


13-39 
15-80 


16-46 


16-65 




















CASHFL 


1-27 


13-42 


1 5-49 


1 5-64 


1 5-78 


15-88 


16-44 


16-52 
















CA*HSH 


1-28 


13-32 


15-41 


15-85 


16-58 


27-39 




















CA*UBL 


1-26 


12-25 


14-21 


14-32 


14-38 


15-16 


15-30 


16-17 


16-28 














CA«UFL 


1-26 


14-19 


14-26 


14-41 


15-19 


15-28 


16-15 


16-22 


17-19 


18- 


-10 


27-19 








CA*WCT 
CASCBR 
CASCUP 


1-26 
1-35 
1-35 


3-36 
3-53 
8-36 


8-29 
25-13* 
25-19* 


11-24 
25-14* 

25-20* 


11-51 






















CASTER 
CASTBW 
CASTRO 


1-35 
1-35 
1-36 


3-22 
6-34 
3-16 


25-11* 
25-17* 
25-9* 


25-12* 
25-18* 
25-10* 
























CASTWO 


1-36 


6-28 


25-15* 


25-16* 
























CC$BLK 


1-25 


3-62* 


8-45* 


11-12 


11-48 


11-60* 


11-70* 


13-22 


13-30 


20- 


-54* 


23-43 








CC*CBP 


1-24 


9-26 


10-26 


13-54* 
























CC*DVU 


1-25 


11-50 


13-31 


20-61* 


20-62* 






















CC*LNK 


1-31 


20-40 


20-44* 


21-12 


21-14 


21-16 


21-18 


21-18* 


21-23* 














CC*OQE 


1-29 


5-14 


20-53* 


22-12 


23-17 






















CCfUBO 


1-25 


9-28 


1 0-28 


20-71* 


23-47 






















CC*UBP 


1-25 


3-63* 


8-46* 


9-25 


10-25 


20-68* 


23-45 


















CC*WCT 


1-24 


3-17 


3-32 


3-64* 


6-29 


8-13 


8-47* 


9-33 


10-33 


11- 


-13 


20-58* 


23- 


■44 




CC*WFL 
CCBFRE 
CCBGET 


1-25 

21-8# 

2-63 


6-21* 
22-16 
20-18# 


6-49* 


7-13* 
























CCBHD 

CD**SZ 

CD$DVU 


1-30 
1-29 

1-25 


20-24 
19-34 
19-32 


20-40* 


21-23 


21-24* 






















CORUSR 
CS*EOF 
CS*ERR 


1-35 
1-27 
1-30 


20-30 
5-16 
5-16 




























CSHADD 
CSHBFP 
CSHBLD 


11-56 
1-30 
4-17 


1 5-7# 

13-53 

6-41 


11-10« 


























CSHCLN 


1-77 


2-52 


12-9# 


























CSHCNT 


3-15 


3-21 


3-52 


6-27 


6-33 


8-35 


24-1 4# 


















CSHDEV 


1-30 


19-31 




























CSHDVN 
CSHFHD 
CSHFIN 


1-27 
1-33 
1-78 


19-35 

17-14 

3-69 


17-20* 
5-25 


18-8 
6-55 


18-9* 
7-19 


27-18* 
22-8# 




















CSHFRE 
CSHGET 
CSHGTQ 


12-38 

11-36 

4-21 


lS-8# 
17-10# 
6-14 


23-12# 


























CSHINI 

CSHIO 

CSHLOC 


1-75 
1-76 
3-26 


27-6# 
2~14# 
S-20 


11-18 


13 "17# 
























CSHLRU 


1-30 


11-42 


12-20 


14-30* 


1 5-27* 


16-26* 


27-33* 
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TSCASH 


— TSX~P1 


us Data Cac 


hing MACRO 


V05. 04 


Friday 18- 


-Dec-87 12: 


00 Page S~2 






















Cross reference 


table (CREF 


V05. 04 ) 






























CSHMRU 


1-28 


14-14 


14-24* 


14-37 


14-43* 


15-14 


15-21* 


15- 


-26* 


16-20* 


27- 


-32* 












CSHRD 

CSHREM 

CSHSCH 


2-72 

11-43 

3-58 


3-9# 

12-34 

8-41 


16-9# 
26 -9# 






























CSHTST 

CSHUP 

CSHUSE 


2-30 
5-21 
3-47 


19~12# 

6-45 
11-30 


S"8# 
14-9# 






























CSHWRT 
CSHZRO 
CURCCB 


2-78 
24-26 
l-82# 


6-1 0# 
25-5# 
20-51* 


27-45 
21-26* 






























DOSCHD 
DVFLAG 
DX«NCA 


1-34 
1-36 
1-36 


26-9 

19-25 

19-25 
































ENSYS 

FP*MOV 

GETQ 


1-27 
1-32 
1-34 


9-18 

9-. 1 9 

23-18 


10-18 
10-19 






























INTPRI 
lOCMPL 
lOQIN 


1-33 
1-32 
l-83# 


20-47 
22-20 
20-52* 


21-25 






























lOQOUT 
lOQSIZ 
JOBCCB 


l-84# 

1-32 

1-33 


5-29* 
23-24 
20-44 


7-23* 
20-45* 


23-19* 
21-12 




























KPAR5 


1-27 


2-16 


2-88* 


3-36* 


8-29* 


9-25* 


10-25* 


11- 


-24* 


11-47* 


11- 


-49* 


11- 


-51* 


12- 


-11 






12-25* 


12-27* 


12-47* 


13-32* 


13-35* 


13-39* 


13-42* 


14- 


-19* 


14-21* 


14- 


-26* 


14- 


-32* 


14- 


-38* 






14-41« 


15-16* 


15-19* 


1 5-28* 


15-30* 


15-35* 


15-41* 


15- 


-49* 


15-51* 


15- 


-58* 


15- 


-60* 


15- 


-64* 






15-72* 


15-78* 


1 5-80* 


15-85* 


1 5-88* 


16-15* 


16-17* 


16- 


-22* 


16-28* 


16- 


-34* 


16- 


-44* 


16- 


-46* 






16-52* 


16-58* 


16-65* 


17-19* 


18-10* 


27-8 


27-19* 


27- 


-39* 


27-49* 
















KPAR6 


1-28 


9-26* 


10-26* 






























LSW9 

NPCCB 

OVRHC 


1-36 
1-33 
1-24 


20-31* 
20-46* 


20-34* 
21-19* 






























PSW 

Q. BLKN 

Q. BUFF 


1-33 
1-31 
1-31 


20-23* 

20-54 

20-63 


20-47* 
23-43* 
23-48* 


21-13* 


21-25* 


























Q. CHAN 
Q. COMP 
Q. CSW 


1-32 
1-24 
1-24 


2-25 
4-26* 

5-15 


23-39* 
6-17* 






























Q. DEVX 
Q. FLAG 
<i. FUNC 


1-28 
1-34 

1-24 


2-50 
2-21 
2-41 


19-20 
23-32* 


20-62 




























Q. JOB 
Q. PAR 
Q. UNIT 


1-29 
1-31 
1-26 


2-23 

20-67 

2-47 


23-45* 
19-17 


20-59 




























Q. WCNT 
QF$CIO 
QF*SCR 


1-27 
1-34 
1-34 


2-58 

2-21 

23-32 


2-67 
23-32 


6-15* 


20-55 


23-44* 
























QNSPNX 
RDMOVE 
READ 10 


1-31 
3-42 

3-75 


20-33 
9-9# 
4-12# 
































REDCPL 
S*QCCB 
SCHED 


4-25 
1-30 
1-34 


4-25 
20-32 
26-14 


5-S# 

21-30 






























SYQIO 
TSCASH 

UREGO 


1-29 
1-20 
1-32 


4-30 
1-71# 
21-31 


6-22 
1-75 


1 -76 


1-77 


1-78 
























USWPCH 


1-32 


2-25 
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VCSHNB 


1-33 


2-3 S 


12-15 


13-24 


1 5-38 


16-37 


27-12 


27-20 


27-30 


VPAR5 


1-29 


9-27 


10-27 


13-26 


13-51 


15-40 


16-39 


27-17 


27-37 


VPAR6 


1-29 


9-29 


10-29 


20-64 


23-46 










WRTCPL 


6-16 


6-16 


7-8# 














WTMOVE 


8-25 


10-9# 
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- ADDR 


1-16# 


4-25 


6-16 


9-- 17 


10-17 
















DISABL 


l-46# 


20-23 


21-13 




















ENABL 


l-52# 


20-47 


21-25 




















MAPTO 


l-40# 


3-36 


8-29 


11-24 


11-47 


11-49 


11-51 


12-25 


12-27 


13-32 


13-35 


13-39 




13-42 


14-19 


14-21 


14-26 


14-32 


14-38 


14-41 


15-16 


15-19 


15-28 


15-30 


15-35 




15-41 


15-49 


15-51 


15-58 


15-60 


15-64 


1 5-72 


15-78 


15-80 


15-85 


15-88 


16-15 




16-17 


16-22 


16-28 


16-34 


16-44 


16-46 


16-52 


16-58 


16-65 


17-19 


18-10 


27-19 




27-39 
























OCALL 


1-S8# 
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